home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / D-Demos / (c)d4.d64 / bit map plot.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  602b  |  30 lines
  1. 10 REM TEST PROGRAM TO CHECK ADDRESSING SCHEMES
  2. 20 POKE53265,PEEK(53265)OR32:REM TURN ON HI-RES SCREEN
  3. 30 POKE53272,25
  4. 40 FORI=0TO999:POKE1024+I,240:NEXT
  5. 50 SC=8192
  6. 60 FORI=0TO7999:POKESC+I,.:NEXT:REM CLEAR HI-RES SCREEN
  7. 70 FORX=0TO319
  8. 80 Y=75*SIN(X/50)+24*COS(X/10+1)+100
  9. 90 GOSUB1000
  10. 100 NEXTX
  11. 500 GETC$:IFC$=""THEN500
  12. 510 IFC$="[133]"THEN530
  13. 520 GOTO500
  14. 530 POKE53265,PEEK(53265)AND223:REM TURN OFF HI-RES SCREEN
  15. 540 POKE53272,23
  16. 550 PRINT"[147]"
  17. 560 END
  18. 1000 REM GIVEN X,Y PLOT ON SCREEN
  19. 1010 IFX<0 OR X>319THENRETURN
  20. 1020 IFY<0 OR Y>199THENRETURN
  21. 1030 YP=199-Y
  22. 1040 P=XAND7
  23. 1050 PX=2^(7-P)
  24. 1060 PY=YPAND7
  25. 1070 PO=8*INT(X/8)+320*INT(YP/8)+PY
  26. 1080 AD=SC+PO
  27. 1090 POKEAD,PEEK(AD)ORPX
  28. 1100 RETURN
  29. 64000 REM"[208] [212]ATTERSALL [212][208][213][199] [206]OVEMBER
  30.